home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / GIMP 2.6.8 / gimp-2.6.8-i686-setup.exe / {app} / share / gimp / 2.0 / scripts / erase-rows.scm < prev    next >
Text File  |  2009-12-15  |  2KB  |  50 lines
  1. (define (script-fu-erase-rows img drawable orientation which type)
  2.   (let* (
  3.         (width (car (gimp-drawable-width drawable)))
  4.         (height (car (gimp-drawable-height drawable)))
  5.         (position-x (car (gimp-drawable-offsets drawable)))
  6.         (position-y (cadr (gimp-drawable-offsets drawable)))
  7.         )
  8.  
  9.     (gimp-image-undo-group-start img)
  10.     (letrec ((loop (lambda (i max)
  11.                      (if (< i max)
  12.                          (begin
  13.                            (if (= orientation 0)
  14.                                (gimp-rect-select img position-x (+ i position-y) width 1 CHANNEL-OP-REPLACE FALSE 0)
  15.                                (gimp-rect-select img (+ i position-x) position-y 1 height CHANNEL-OP-REPLACE FALSE 0))
  16.                            (if (= type 0)
  17.                                (gimp-edit-clear drawable)
  18.                                (gimp-edit-fill drawable BACKGROUND-FILL))
  19.                            (loop (+ i 2) max))))))
  20.       (loop (if (= which 0)
  21.                 0
  22.                 1)
  23.             (if (= orientation 0)
  24.                 height
  25.                 width)
  26.       )
  27.     )
  28.     (gimp-selection-none img)
  29.     (gimp-image-undo-group-end img)
  30.     (gimp-displays-flush)
  31.   )
  32. )
  33.  
  34. (script-fu-register "script-fu-erase-rows"
  35.   _"_Erase Every Other Row..."
  36.   _"Erase every other row or column"
  37.   "Federico Mena Quintero"
  38.   "Federico Mena Quintero"
  39.   "June 1997"
  40.   "RGB* GRAY* INDEXED*"
  41.   SF-IMAGE    "Image"      0
  42.   SF-DRAWABLE "Drawable"   0
  43.   SF-OPTION  _"Rows/cols"  '(_"Rows" _"Columns")
  44.   SF-OPTION  _"Even/odd"   '(_"Even" _"Odd")
  45.   SF-OPTION  _"Erase/fill" '(_"Erase" _"Fill with BG")
  46. )
  47.  
  48. (script-fu-menu-register "script-fu-erase-rows"
  49.                          "<Image>/Filters/Distorts")
  50.